perm filename MAPARY.SAI[1,BGB] blob
sn#001262 filedate 1972-10-22 generic text, type T, neo UTF8
00100 ENTRY DUMMY;
00200 BEGIN "MAP DATA"
00300 DEFINE α = "COMMENT";
00400 PRELOAD_WITH
00500 0.0, 0.0, 440.0, 20.504, -10.420, 440.0,
00600 -1.959, -25.927, 440.0, 20.329, -37.253, 440.0,
00700 564.983, -296.702, 440.0, 591.290, -321.277, 440.0,
00800 746.979, -91.681, 440.0, 772.915, 28.348, 440.0,
00900 809.454, -5.783, 440.0, 835.761, -30.357, 440.0,
01000 1053.148, -233.423, 440.0, 938.159, 47.904, 440.0,
01100 924.538, 81.228, 440.0, 892.353, 66.60, 440.0,
01200 868.701, 110.112, 440.0, 874.668, 67.650, 440.0,
01300 835.598, 72.640, 440.0, 842.664, 46.213, 440.0,
01400 808.453, 63.520, 440.0, 679.103, 238.451, 440.0,
01500 669.648, 229.528, 440.0, 660.194, 220.605, 440.0,
01600 396.938, -27.863, 440.0, 383.858, 333.895, 440.0,
01700 383.388, 346.886, 440.0, 382.919, 359.878, 440.0,
01800 286.292, 269.81, 440.0, 387.902, 221.970, 440.0,
01900 293.391, 161.874, 440.0, 323.826, 101.997, 440.0,
02000 343.83, 32.779, 440.0, 310.63, -184.491, 440.0,
02100 205.710, -304.197, 440.0, 147.653, -336.274, 440.0,
02200 -126.909, -326.987, 440.0, -137.607, -321.550, 440.0,
02300 -290.626, 147.691, 440.0, -242.498, 217.878, 440.0,
02400 -101.71, 309.936, 440.0, -34.423, 324.177, 440.0,
02500 83.882, 315.25, 440.0, 176.592, 309.172, 440.0,
02600 240.444, 327.181, 440.0, 245.686, 315.285, 440.0,
02700 243.472, 300.233, 440.0, 180.71, 283.406, 440.0,
02800 178.167, 274.164, 440.0, 227.583, 238.290, 440.0,
02900 252.173, 246.904, 440.0, 262.705, 280.18, 440.0,
03000 243.472, 300.233, 440.0, 276.281, 84.789, 440.0,
03100 262.114, 80.441, 440.0, 264.129, 73.553, 440.0,
03200 276.460, 69.242, 440.0, 293.921, 73.615, 440.0,
03300 299.625, 92.494, 440.0, 282.421, 154.898, 440.0,
03400 271.450, 147.923, 440.0, 210.531, 218.663, 440.0,
03500 164.786, 251.872, 440.0, 144.826, 262.916, 440.0,
03600 135.912, 267.447, 440.0, 150.716, 274.506, 440.0,
03700 141.801, 279.36, 440.0, 80.537, 302.463, 440.0,
03800 77.191, 289.901, 440.0, -31.677, 298.322, 440.0,
03900 -30.516, 287.384, 440.0, -44.884, 281.443, 440.0,
04000 -43.181, 270.758, 440.0, -28.951, 272.647, 440.0,
04100 -36.78, 271.795, 440.0, 133.917, 256.99, 440.0,
04200 173.678, 230.991, 440.0, 144.101, 191.654, 440.0,
04300 141.281, 193.705, 440.0, 138.466, 195.764, 440.0,
04400 121.523, 161.625, 440.0, 119.160, 163.376, 440.0,
04500 116.771, 165.91, 440.0, 105.168, 139.873, 440.0,
04600 81.91, 155.77, 440.0, 169.756, 42.517, 440.0,
04700 173.270, 24.539, 440.0, 265.964, 66.613, 440.0,
04800 300.6, 42.489, 440.0, 317.451, 28.418, 440.0,
04900 321.986, -19.928, 440.0, 242.0, -21.410, 440.0,
05000 242.965, -101.404, 440.0, 238.148, -99.393, 440.0,
05100 161.577, -201.139, 440.0, 128.135, -192.491, 440.0,
05200 170.546, -212.303, 440.0, 178.643, -206.435, 440.0,
05300 185.197, -213.989, 440.0, 241.124, -148.148, 440.0,
05400 249.645, -153.383, 440.0, 258.651, -157.730, 440.0,
05500 278.175, -163.325, 440.0, 319.559, -95.122, 440.0,
05600 321.981, -99.495, 440.0, 326.367, -101.898, 440.0,
05700 298.474, -178.601, 440.0, 260.913, -235.907, 440.0,
05800 258.736, -230.315, 440.0, 253.170, -228.73, 440.0,
05900 233.941, -222.575, 440.0, 190.879, -282.841, 440.0,
06000 176.619, -262.307, 440.0, 165.946, -284.914, 440.0,
06100 125.620, -270.814, 440.0, 87.240, -262.173, 440.0,
06200 64.705, -268.97, 440.0, 60.888, -253.591, 440.0,
06300 46.126, -256.252, 440.0, α 45.706, -253.920, 440.0,;
06400 20.196, -257.209, 440.0, 21.300, -271.276, 440.0,
06500 1.362, -272.847, 440.0, 13.697, -288.591, 440.0,
06600 6.469, -294.250, 440.0, 13.866, -303.698, 440.0,
06700 55.578, -283.450, 440.0, 91.362, -274.43, 440.0,
06800 93.980, -321.794, 440.0, 122.668, -283.532, 440.0,
06900 141.547, -290.133, 440.0, 129.799, -299.460, 440.0,
07000 137.467, -312.352, 440.0, -115.130, -303.808, 440.0,
07100 -125.828, -298.372, 440.0, -267.448, 135.912, 440.0,
07200 -260.12, 149.645, 440.0, -247.12, 142.163, 440.0,
07300 -239.187, 154.966, 440.0, -146.869, 95.154, 440.0,
07400 -136.119, 109.985, 440.0, -45.474, 168.988, 440.0,
07500 -27.561, 172.816, 440.0, 232.600, 58.257, 440.0,
07600 231.699, 61.626, 440.0, 230.807, 64.997, 440.0,
07700 196.156, 49.129, 440.0, 195.420, 51.977, 440.0,
07800 194.644, 54.813, 440.0, 93.702, 179.194, 440.0,
07900 96.299, 177.812, 440.0, 98.874, 176.393, 440.0,
08000 111.112, 212.487, 440.0, 114.176, 210.822, 440.0,
08100 117.245, 209.165, 440.0, -26.25, 200.533, 440.0,
08200 -28.939, 200.133, 440.0, -31.847, 199.691, 440.0,
08300 -30.861, 237.790, 440.0, -34.312, 237.287, 440.0,
08400 -37.764, 236.792, 440.0, -52.546, 195.268, 440.0,
08500 -55.380, 194.483, 440.0, -58.203, 193.657, 440.0,
08600 -62.308, 231.547, 440.0, -65.661, 230.588, 440.0,
08700 -69.16, 229.637, 440.0, -186.509, 150.702, 440.0,
08800 -184.275, 153.379, 440.0, -182.47, 156.63, 440.0,
08900 -157.287, 127.90, 440.0, -155.422, 129.364, 440.0,
09000 -153.524, 131.611, 440.0, -213.262, 172.319, 440.0,
09100 -208.678, 177.843, 440.0, -203.951, 183.244, 440.0,
09200 -221.678, 179.119, 440.0, -214.975, 193.149, 440.0,
09300 -212.0, 190.476, 440.0, -223.158, 200.501, 440.0,
09400 -93.10, 285.217, 440.0, -89.599, 274.759, 440.0,
09500 -88.359, 270.956, 440.0, -85.5, 260.670, 440.0,
09600 -78.152, 262.805, 440.0, -71.246, 264.761, 440.0,
09700 -74.57, 275.209, 440.0, 144.872, 544.40, 440.0,
09800 81.682, -390.307, 440.0, 690.652, -366.950, 440.0,
09900 624.297, -334.192, 440.0, 249.96, 286.327, 440.0,
10000 237.420, 249.614, 440.0, 180.741, 278.451, 440.0,
10100 277.746, 242.206, 440.0, -30.93, 283.406, 440.0,
10200 302.469, 27.693, 440.0, 285.953, 86.324, 440.0,
10300 45.706, -253.92, 440.0;
10400 INTERNAL REAL ARRAY LOCII[0:400,1:3];
00100 PRELOAD_WITH
00200 4, 5, α 1;
00300 8, 9, α 2;
00400 5, 9, α 3;
00500 4, 8, α 4;
00600 11, 12, α 5;
00700 16, 18, α 6;
00800 18, 21, α 7;
00900 16, 19, α 8;
01000 17, 20, α 9;
01100 19, 21, α 10;
01200 23, 25, α 11;
01300 26, 49, α 12;
01400 191, 48, α 13;
01500 28, 58, α 14;
01600 47, 59, α 15;
01700 46, 60, α 16;
01800 43, 50, α 17;
01900 42, 43, α 18;
02000 41, 45, α 19;
02100 63, 64, α 20;
02200 61, 62, α 21;
02300 40, 66, α 22;
02400 39, 67, α 23;
02500 38, 177, α 24;
02600 37, 176, α 25;
02700 36, 132, α 26;
02800 130, 131, α 27;
02900 34, 35, α 28;
03000 35, 131, α 29;
03100 33, 129, α 30;
03200 32, 109, α 31;
03300 111, 112, α 32;
03400 113, 114, α 33;
03500 117, 195, α 34;
03600 116, 195, α 35;
03700 117, 118, α 36;
03800 121, 122, α 37;
03900 123, 124, α 38;
04000 126, 127, α 39;
04100 107, 108, α 40;
04200 92, 94, α 41;
04300 31, 104, α 42;
04400 90, 91, α 43;
04500 30, 87, α 44;
04600 29, 56, α 45;
04700 84, 86, α 46;
04800 55, 85, α 47;
04900 142, 145, α 48;
05000 51, 52, α 49;
05100 74, 75, α 50;
05200 77, 80, α 51;
05300 148, 151, α 52;
05400 73, 149, α 53;
05500 152, 155, α 54;
05600 68, 71, α 55;
05700 139, 154, α 56;
05800 138, 158, α 57;
05900 160, 163, α 58;
06000 178, 180, α 59;
06100 166, 169, α 60;
06200 172, 174, α 61;
06300 137, 167, α 62;
06400 135, 136, α 63;
06500 87, 88, α 64;
06600 132, 133, α 65;
06700 120, 121, α 66;
06800 85, 140, α 47B 67;
06900 140, 143, α 47C 68;
07000 143, 83, α 47D 69;
07100 75, 78, α 50B 70;
07200 78, 81, α 50C 71;
07300 149, 146, α 53B 72;
07400 82, 146, α 53C 73;
07500 157, 154, α 56B 74;
07600 157, 70, α 56C 75;
07700 69, 70, α 56D 76;
07800 158, 161, α 57B 77;
07900 161, 182, α 57C 78;
08000 182, 183, α 57D 79;
08100 164, 167, α 62B 80;
08200 164, 170, α 62C 81;
08300 170, 173; α 62D 82;
08400 INTERNAL INTEGER ARRAY SEGS[1:300,1:2];
00100 PRELOAD_WITH
00200 9, 11, 10, α 1;
00300 12, 13, 10, α 2;
00400 8, 18, 7, α 3;
00500 13, 16, 14, α 4;
00600 21, 23, 22, α 5;
00700 20, 24, 22, α 6;
00800 19, 25, 22, α 7;
00900 23, 26, 27, α 8;
01000 24, 57, 27, α 9;
01100 24, 43, 22, α 10;
01200 25, 42, 22, α 11;
01300 42, 41, 184, α 12;
01400 43, 65, 184, α 13;
01500 44, 45, 184, α 14;
01600 45, 46, 190, α 15;
01700 46, 47, 2, α 16;
01800 47, 48, 189, α 17;
01900 48, 49, 27, α 18;
02000 49, 50, 188, α 19;
02100 26, 191, 27, α 20;
02200 191, 28, 27, α 21;
02300 59, 60, 2, α 22;
02400 60, 61, 2, α 23;
02500 57, 63, 2, α 24;
02600 58, 59, 2, α 25;
02700 62, 66, 0, α 26;
02800 64, 65, 0, α 27;
02900 40, 41, 184, α 28;
03000 56, 58, 2, α 29;
03100 28, 29, 2, α 30;
03200 57, 103, 2, α 31;
03300 84, 83, 0, α 32;
03400 83, 81, 0, α 33;
03500 81, 82, 0, α 34;
03600 82, 139, 0, α 35;
03700 138, 139, 0, α 36;
03800 138, 137, 0, α 37;
03900 136, 137, 0, α 38;
04000 133, 135, 134, α 39;
04100 36, 37, 0, α 40;
04200 173, 176, 175, α 41;
04300 170, 172, 171, α 42;
04400 164, 166, 165, α 43;
04500 167, 169, 168, α 44;
04600 158, 160, 159, α 45;
04700 161, 163, 162, α 46;
04800 180, 182, 181, α 47;
04900 177, 183, 179, α 48;
05000 38, 39, 0, α 49;
05100 67, 69, 192, α 50;
05200 70, 71, 72, α 51;
05300 155, 157, 156, α 52;
05400 152, 154, 153, α 53;
05500 68, 73, 0, α 54;
05600 73, 74, 0, α 55;
05700 75, 77, 76, α 56;
05800 149, 151, 150, α 57;
05900 78, 80, 79, α 58;
06000 146, 148, 147, α 59;
06100 74, 51, 0, α 60;
06200 52, 85, 53, α 61;
06300 140, 142, 141, α 62;
06400 143, 145, 144, α 63;
06500 86, 87, 193, α 64;
06600 29, 30, 2, α 65;
06700 55, 56, 194, α 66;
06800 174, 178, 0, α 67;
06900 176, 177, 0, α 68;
07000 37, 38, 0, α 69;
07100 39, 40, 0, α 70;
07200 66, 67, 0, α 71;
07300 131, 132, 1, α 72;
07400 35, 36, 1, α 73;
07500 129, 130, 3, α 74;
07600 33, 34, 3, α 75;
07700 118, 120, 119, α 76;
07800 114, 116, 115, α 77;
07900 122, 123, 185, α 78;
08000 124, 126, 125, α 79;
08100 112, 113, 125, α 80;
08200 109, 111, 110, α 81;
08300 127, 129, 128, α 82;
08400 32, 33, 3, α 83;
08500 108, 109, 93, α 84;
08600 31, 32, 3, α 85;
08700 99, 108, 187, α 86;
08800 97, 99, 98, α 87;
08900 96, 97, 0, α 88;
09000 94, 96, 95, α 89;
09100 91, 92, 0, α 90;
09200 88, 90, 89, α 91;
09300 30, 31, 2, α 92;
09400 101, 103, 102, α 93;
09500 101, 100, 186, α 94;
09600 100, 107, 187, α 95;
09700 105, 107, 106, α 96;
09800 104, 105, 3, α 97;
09900 103, 104, 2; α 98;
10000 INTERNAL INTEGER ARRAY ARCS[1:300,1:3];
00100 PRELOAD_WITH
00200 α AROAD; 0,-1,-2,-3,-4,
00300 α APRON; 0,-2,-5,-6,1,2,3,4,
00400 α SROAD; 0,-6,-7,-8,-10,
00500 α DCURVE; 0,-10,-11,5,7,
00600 α INFORK1; 0,-12,-13,20,18,
00700 α INFORK2; 0,-11,-12,-17,-18,8,11,19,
00800 α INFORK3; 0,-17,-18,-19,12,14,
00900 α OUTFORK1; 0,-16,-19,-22,-21,28,26,15,23,
01000 α OUTFORK2; 0,-15,-16,16,22,
01100 α OUTFORK3; 0,-13,-14,-15,17,21,25,
01200 α OUTFORK4; 0,-14,-45,29,30,
01300 α AISLE1; 0,-62,-80,-81,-81,-82,-63,-65,-25,-26,38,41,39,40,
01400 α AISLE2; 0,36,-57,-77,-78,-79,-56,-74,-75,-76,-23,-24,48,49,50,
01500 α AISLE3; 0,56,-51,58,57,-52,59,34,-52,59,34,-71,-73,55,-50,-53,
01600 α AISLE4; 0,-47,-67,-68,-69,32,-46,64,65,66,-44,-45,
01700 α NEARLOT; 0,-59,67,-61,42,-81,43,-60,44,-62,37,-57,45,-58,46,-78,47,
01800 α MIDLOT; 0,51,-75,52,-54,53,-56,35,-73,-72,-53,54,-55,
01900 α FARLOT; 0,-50,-70,-71,33,-69,63,-48,62,61,-49,-67,60,
02000 α SPUR; 0,-34,-36,76,-66,-37,78,-38,-39,77,-30,-31,-32,-33,79,80,81,82,83,
02100 α ROAD2; 0,-24,-25,68,69,
02200 α TRIFORK; 0,91,-43,90,-41,89,88,87,86,-40,95,94,93,98,-42,92,-44,-64,
02300 α ROAD5; 0,-31,-42,85,96,97,-40,84,
02400 α ROAD4; 0,-30,-27,-28,-29,74,75,
02500 α ROAD3; 0,-29,-26,72,73,
02600 α ROAD1; 0,-22,-23,70,71;
02700 INTERNAL INTEGER ARRAY CURLY[1:1000];
02800
02900 END